VERSION 5.00
Begin VB.Form frmSigReq 
   BackColor       =   &H00FFFFFF&
   Caption         =   "Select Signature Required Type"
   ClientHeight    =   1920
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5175
   Icon            =   "frmSigReq.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   ScaleHeight     =   1920
   ScaleWidth      =   5175
   StartUpPosition =   1  'CenterOwner
   Begin VB.CommandButton cmdCancel 
      Appearance      =   0  'Flat
      BackColor       =   &H00E0E0E0&
      Caption         =   "Cancel"
      Height          =   315
      Left            =   2880
      MaskColor       =   &H0080C0FF&
      Style           =   1  'Graphical
      TabIndex        =   5
      Top             =   1440
      UseMaskColor    =   -1  'True
      Width           =   1215
   End
   Begin VB.CommandButton cmdSave 
      Appearance      =   0  'Flat
      BackColor       =   &H00E0E0E0&
      Caption         =   "&Save/Exit"
      Height          =   315
      Left            =   1080
      MaskColor       =   &H00E0E0E0&
      Style           =   1  'Graphical
      TabIndex        =   4
      Top             =   1440
      Width           =   1215
   End
   Begin VB.Frame Frame1 
      BackColor       =   &H00FFFFFF&
      Caption         =   "Signature Required Type"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000080FF&
      Height          =   1095
      Left            =   240
      TabIndex        =   0
      Top             =   180
      Width           =   4695
      Begin VB.OptionButton f2399 
         BackColor       =   &H00FFFFFF&
         Caption         =   "Adult"
         Height          =   255
         Index           =   4
         Left            =   3360
         TabIndex        =   3
         Top             =   480
         Width           =   975
      End
      Begin VB.OptionButton f2399 
         BackColor       =   &H00FFFFFF&
         Caption         =   "Direct"
         Height          =   255
         Index           =   3
         Left            =   2040
         TabIndex        =   2
         Top             =   480
         Width           =   855
      End
      Begin VB.OptionButton f2399 
         BackColor       =   &H00FFFFFF&
         Caption         =   "Indirect"
         Height          =   255
         Index           =   2
         Left            =   480
         TabIndex        =   1
         Top             =   480
         Width           =   1215
      End
   End
End
Attribute VB_Name = "frmSigReq"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdCancel_Click()
    Me.Hide
    If frmShip.Visible Then frmShip.SetFocus
End Sub

Private Sub cmdSave_Click()
    
    Call AssignFormGlobalVars
    Me.Hide

End Sub
'---------------------------------------------------------------------------------------
' Procedure : AssignFormGlobalVars()
' DateTime  : 4/26/2006
' Purpose   : Assign the form's global vars
'---------------------------------------------------------------------------------------
'
Public Sub AssignFormGlobalVars()
    
    If f2399(2) Then        'Indirect
        g_str2399 = "2"
    ElseIf f2399(3) Then    'Direct
        g_str2399 = "3"
    ElseIf f2399(4) Then    'Adult
        g_str2399 = "4"
    End If

End Sub

Private Sub Form_Activate()
    Call SetAvailableSigRegOptions
End Sub
'---------------------------------------------------------------------------------------
' Procedure : Form_KeyDown()
' DateTime  : 2/17/2005
' Purpose   : Enter key pressed sends a TAB to move to next field
'---------------------------------------------------------------------------------------
'
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If Not TypeOf Me.ActiveControl Is CommandButton Then
        If Shift = 0 And KeyCode = 13 Then
            SendKeys "{TAB}"
        End If
    End If
End Sub
'---------------------------------------------------------------------------------------
' Procedure : SetAvailableSigRegOptions()
' DateTime  : 8/26/2005
' Purpose   : Disables ISR if Residential not selected on Ship form.
'---------------------------------------------------------------------------------------
'
Public Sub SetAvailableSigRegOptions()
    If frmShip.f440 = 0 Then
        f2399(2).Value = False
        f2399(2).Enabled = False
    Else
        f2399(2).Enabled = True
    End If

End Sub
